home *** CD-ROM | disk | FTP | other *** search
/ Visual Intercept / Visual Intercept.iso / sheriff.z / isparmfn.bas < prev    next >
BASIC Source File  |  1996-08-26  |  6KB  |  191 lines
  1. Attribute VB_Name = "IIParameter"
  2. '----------------------------------------------------------------------------
  3. '   isparmfn.bas is a member of the Visual Intercept Visual Basic API.
  4. '   Copyright (c) 1996 Elsinore Technologies, Inc. All rights reserved.
  5. '
  6. '   This software is protected by copyright law. Unauthorized reproduction
  7. '   or distribution of this program, or any portion of it, may result in
  8. '   severe civil or criminal penalties. If you have any questions about
  9. '   your redistribution rights, please contact Elsinore Technologies, Inc.
  10. '
  11. '   Creator: Albert J. Lin (AJL)
  12. '   History: Created 09/17/95
  13. '----------------------------------------------------------------------------
  14.  
  15.  
  16. '----------------------------------------------------------------------------
  17. ' Visual Intercept Parameter Declaration:
  18. '----------------------------------------------------------------------------
  19. Public Const parmContact = 0
  20. Public Const parmRelationship = 1
  21. Public Const parmCategory = 2
  22. Public Const parmPriority = 3
  23. Public Const parmSeverity = 4
  24. Public Const parmStatus = 5
  25. Public Const parmOS = 6
  26. Public Const parmNetwork = 7
  27. Public Const parmMachine = 8
  28. Public Const parmModels = 9
  29. Public Const parmCPU = 10
  30. Public Const parmCPUSpeed = 11
  31. Public Const parmCPUCoprocessor = 12
  32. Public Const parmBIOS = 13
  33. Public Const parmVideoCard = 14
  34. Public Const parmVideoResolution = 15
  35. Public Const parmSCSI = 16
  36. Public Const parmCDROM = 17
  37. Public Const parmDrives = 18
  38. Public Const parmFileSystem = 19
  39. Public Const parmManufacture = 20
  40. Public Const parmMouse = 21
  41. Public Const parmMouseBrand = 22
  42. Public Const parmPrinter = 23
  43. Public Const parmPrinterConnection = 24
  44. Public Const parmPrinterCartridge = 25
  45.  
  46. Public Type VIParameter
  47.     name                    As String
  48.     description             As String
  49.     weight                  As Double
  50. End Type
  51.  
  52. Public Type IEParameter
  53.     lpName                  As String
  54.     lpDescription           As String
  55.     weight                  As Double
  56.     
  57.     lnName                  As Integer
  58.     lnDescription           As Integer
  59. End Type
  60.  
  61. '/*  Visual Intercept Parameter API.          */
  62. Public Declare Function IIInsertParameter Lib "isapi.dll" (pParameter As IEParameter, ByVal parmType As Long) As Long
  63. Public Declare Function IIDeleteParameter Lib "isapi.dll" (pParameter As IEParameter, ByVal parmType As Long, ByVal clause As String) As Long
  64. Public Declare Function IIModifyParameter Lib "isapi.dll" (pParameter As IEParameter, ByVal parmType As Long, ByVal clause As String) As Long
  65. Public Declare Function IIFetchParameter Lib "isapi.dll" (pParameter As IEParameter, ByVal parmType As Long, ByVal clause As String) As Long
  66. Public Declare Function IIFetchParameters Lib "isapi.dll" (ByRef pnTotal As Long, ByVal parmType As Long, ByVal clause As String) As Long
  67. Public Declare Function IIGetParameter Lib "isapi.dll" (pParameter As IEParameter, ByVal nIndex As Long) As Long
  68.  
  69. Public Function VBIIInitParameter(Parameter As IEParameter)
  70.        
  71.     Parameter.lnName = lnIIParameter
  72.     Parameter.lnDescription = lnIIDescription
  73.     
  74.     Parameter.lpName = String(Parameter.lnName, 0)
  75.     Parameter.lpDescription = String(Parameter.lnDescription, 0)
  76.     Parameter.weight = 0
  77.  
  78. End Function
  79.  
  80. Public Function VBIIFetchParameter(userParameter As VIParameter, ByVal nType As Long, ByRef clause As String) As Long
  81.     Dim Parameter As IEParameter
  82.     Dim err As Long
  83.     
  84.     Call VBIIInitParameter(Parameter)
  85.     
  86.     Call VBIIPrepareParameter(Parameter, userParameter)
  87.  
  88.     err = IIFetchParameter(Parameter, nType, clause)
  89.     
  90.     If err = 0 Then
  91.         Call VBIIConvertParameter(Parameter, userParameter)
  92.     End If
  93.  
  94.     VBIIFetchParameter = err
  95.     
  96. End Function
  97.  
  98. Public Function VBIIDeleteParameter(userParameter As VIParameter, ByVal nType As Long, ByRef clause As String) As Long
  99.     Dim Parameter As IEParameter
  100.     Dim err As Long
  101.     
  102.     Call VBIIInitParameter(Parameter)
  103.     
  104.     Call VBIIPrepareParameter(Parameter, userParameter)
  105.     
  106.     err = IIDeleteParameter(Parameter, nType, clause)
  107.  
  108.     VBIIDeleteParameter = err
  109.     
  110. End Function
  111.  
  112. Public Function VBIIGetParameter(userParameter As VIParameter, ByVal nIndex As Long) As Long
  113.     Dim Parameter As IEParameter
  114.     Dim err As Long
  115.         
  116.     Call VBIIInitParameter(Parameter)
  117.     
  118.     err = IIGetParameter(Parameter, nIndex)
  119.     
  120.     If err = 0 Then
  121.         Call VBIIConvertParameter(Parameter, userParameter)
  122.     End If
  123.     
  124.     VBIIGetParameter = err
  125.     
  126. End Function
  127.  
  128. Public Function VBIIInsertParameter(userParameter As VIParameter, ByVal nType As Long) As Long
  129.     Dim Parameter As IEParameter
  130.     Dim err As Long
  131.     
  132.     Call VBIIInitParameter(Parameter)
  133.  
  134.     Call VBIIPrepareParameter(Parameter, userParameter)
  135.     
  136.     err = IIInsertParameter(Parameter, nType)
  137.     
  138.     VBIIInsertParameter = err
  139.     
  140. End Function
  141.  
  142. Public Function VBIIModifyParameter(userParameter As VIParameter, ByVal nType As Long, ByRef clause As String) As Long
  143.     Dim Parameter As IEParameter
  144.     Dim err As Long
  145.     
  146.     Call VBIIInitParameter(Parameter)
  147.     
  148.     Call VBIIPrepareParameter(Parameter, userParameter)
  149.     
  150.     err = IIModifyParameter(Parameter, nType, clause)
  151.     
  152.     VBIIModifyParameter = err
  153.     
  154. End Function
  155.  
  156.  
  157. Public Function VBIIFetchParameters(ByRef rnTotal As Long, ByVal nType As Integer, ByRef clause As String) As Long
  158.     Dim err As Long
  159.     
  160.     err = IIFetchParameters(rnTotal, nType, clause)
  161.  
  162.     VBIIFetchParameters = err
  163.     
  164. End Function
  165.  
  166.  
  167.  
  168.  
  169.  
  170. Public Function VBIIConvertParameter(Parameter As IEParameter, userParameter As VIParameter)
  171.       
  172.     userParameter.name = Parameter.lpName
  173.     userParameter.description = Parameter.lpDescription
  174.     userParameter.weight = Parameter.weight
  175.      
  176. End Function
  177.  
  178. Public Function VBIIPrepareParameter(Parameter As IEParameter, userParameter As VIParameter)
  179.        
  180.     Parameter.lpName = userParameter.name
  181.     Parameter.lpDescription = userParameter.description
  182.     Parameter.weight = userParameter.weight
  183.     
  184.     Parameter.lnName = Len(userParameter.name)
  185.     Parameter.lnDescription = Len(userParameter.description)
  186.  
  187. End Function
  188.  
  189.  
  190.  
  191.